home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8411.d64 / list 5 (joy) (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  568b  |  17 lines
  1. 30 REM ********************************
  2. 31 REM *           J  O  Y            *
  3. 32 REM ********************************
  4. 33 REM * ERGAENZUNG ZU SIMON'S BASIC  *
  5. 34 REM * FORMAT: dQ N                *
  6. 35 REM * STELLT dQSTICKPORT EIN      *
  7. 36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
  8. 37 REM *             dQ2 (FUER PORT2)*
  9. 38 REM ********************************
  10. 39 K=0:PRINT" J O Y [146]      ?CHECKSUM ";
  11. 40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
  12. 41 DATA32,115,,32,6,129,138,41,1,141
  13. 42 DATA213,136,76,42,130
  14. 43 POKE$88DA,111:POKE$88FC,16
  15. 44 POKE$8764,226:POKE$8765,191
  16. 45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"
  17.